La marca de autos Audi quiere competir globalmente, por lo que seleccionó una lista de diversos coches con diferentes características para comparar sus atributos y encontrar el mejor coche con las piezas más baratas para vender a un precio económico.
89 observaciones con 9 variables.
library(readxl)
comb <- read_excel("combustible.xlsx",
col_types = c("text", "text", "text",
"text", "numeric", "numeric", "numeric",
"numeric", "numeric"))
head(comb)str(comb)## tibble [89 x 9] (S3: tbl_df/tbl/data.frame)
## $ Carrocería : chr [1:89] "Hatchback" "Hatchback" "Hatchback" "Hatchback" ...
## $ Caja_cambios : chr [1:89] "Automatica" "Automatica" "Automatica" "Manual" ...
## $ Marchas : chr [1:89] "4" "4" "4" "5" ...
## $ Combustible : chr [1:89] "95" "95" "95" "95" ...
## $ Velocidad_max : num [1:89] 184 184 184 189 189 189 197 197 202 202 ...
## $ Diámetro_cilindro: num [1:89] 81 81 81 81 81 81 81 81 81 81 ...
## $ Recorrido_pistón : num [1:89] 77.4 77.4 77.4 77.4 77.4 77.4 86.4 86.4 86.4 86.4 ...
## $ Potencia_motor : num [1:89] 102 102 102 102 102 102 125 125 125 125 ...
## $ Cilindrada : num [1:89] 1595 1595 1595 1595 1595 ...Carrocería:
Tipo de carrocería.
Caja_cambios:
Tipo de caja de cambios.
Marchas:
Número de marchas.
Combustible:
Tipo de combustible/octanaje de la gasolina.
Velocidad_max:
Número de máximo de kilómetros que puede recorrer en una hora (km/h).
Diametro_cilindro:
Diámetro de los cilindros del motor (mm).
Recorrido_piston:
Es la distancia que recorre el pistón en el cilindro desde el punto muerto inferior hasta el punto muerto superior (mm).
Potencia_motor:
Trabajo total que puede realizar en determinado tiempo (CV).
Cilindrada:
Volumen combinado de los pistones dentro de los cilindros de un motor (cm^3).
library(ggplot2)
library(plotly)##
## Attaching package: 'plotly'## The following object is masked from 'package:ggplot2':
##
## last_plot## The following object is masked from 'package:stats':
##
## filter## The following object is masked from 'package:graphics':
##
## layoutlibrary(readxl)
comb150 <- read_excel("combustible_150hp.xlsx",
col_types = c("text", "text", "text",
"text", "numeric", "numeric", "numeric",
"numeric", "numeric"))
d <- ggplot(comb150)
d <- d + aes(x=Carrocería, y=Velocidad_max, fill = Carrocería)
d <- d + geom_boxplot() + geom_jitter(color="grey", size=0.7, alpha=0.6)
d <- d + xlab("Carrocería")
d <- d + ylab("Velocidad máxima (km/h)")
d <- d + ggtitle("Comparación de carrocerías de 101 a 151 hp")
ggplotly(d)Anteriormente se había mencionado que la carrocería Sportback Hatchback presentaba velocidades máximas mayores que la de la carrocería Hatchback tradicional, como se observa en el Boxplot de arriba, esa afirmación es parcialmente correcta. Considerando la mediana, la carrocería Sportback Hatchback tiene velocidades máximas más altas, pero no son mucho más grandes que las de la carrocería Hatchback tradicional.
Lo que ocurre, como se puede ver arriba en la gráfica, es que la carrocería Sportback Hatchback tiene un rango mínimo para sus velocidades, en cambio la carrocería Hatchback tradicional no la tiene, sus velocidades máximas pueden variar. Como la carrocería Sportback Hatchback está diseñada para velocidades muy altas, no baja de 190 km/h, puede tener diversas velocidades máximas, pero no pueden ser inferiores a 190 km/h. En cambio, la carrocería Hatchback tradicional sí puede tener velocidades inferiores a 190 km/h.
Para resumir, aunque la mediana de la carrocería Sportback Hatchback es mayor que la de la carrocería Hatchaback tradicional, esta última también pueda alcanzar las velocidades de la versión deportiva. La diferencia solo se debe a que la carrocería Sportback Hatchback no acepta velocidades máximas menores a 190 km/h, la tradicional Hatchback sí. Entonces, si se desea economizar, se puede comprar un auto Audi con carrocería tradicional Hatchback y obtener velocidades muy altas sin necesidad de ser un auto con carrocería deportiva.
library(ggplot2)
library(plotly)
library(readxl)
comb <- read_excel("combustible.xlsx",
col_types = c("text", "text", "text",
"text", "numeric", "numeric", "numeric",
"numeric", "numeric"))
z <- ggplot(comb)
z <- z + aes(x=Combustible, y=Velocidad_max, fill = Combustible)
z <- z + geom_boxplot() + geom_jitter(color="grey", size=0.7, alpha=0.6)
z <- z + xlab("Combustible")
z <- z + ylab("Velocidad máxima (km/h)")
z <- z + ggtitle("Comparación de combustible")
ggplotly(z)En este Box plot se aprecia claramente como el combustible de 95 octanos tiene velocidades máximas mucho mayores a las del combustible Diesel (menor octanaje). No hay discusión, el combustible 95 tiene las velocidades máximas más altas.
Sin embargo, en el combustible Diesel existe un punto de especial interés, existe un carro con combustible Diesel con velocidades máximas superiores a la de muchos autos con gasolina 95, esto es muy extraño, seguramente el motor de ese carro tiene la cilindrada (por tanto, también su motor) muy grande, por lo que no es recomendable comercializarlo.
Los autos con menor costo y velocidad máxima alta recomendables son los que corresponden al rango superior de autos con Diesel; tienen velocidades máximas mayores a 200 km/h, usan un combustible más barato y no tienen el motor muy grande, además de alcanzar la mediana de autos con combustible 95, por lo tanto, son los más recomendables de comercializar.